From 4a1dfc2144355ec0548017d2b5276abd5cfee09c Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 27 Jan 2009 04:48:09 +0000 Subject: [PATCH] (rmail-get-coding-system): Re-search rmail-mime-charset-pattern directly instead of using mail-fetch-field. Use coding-system-from-name. --- lisp/mail/rmail.el | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 99bdcea0516..a96b52b8602 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -940,13 +940,10 @@ This function also reinitializes local variables used by Rmail." (defun rmail-get-coding-system () "Return a suitable coding system to use for the current mail message. The buffer is expected to be narrowed to just the header of the message." - (let ((content-type-header (mail-fetch-field "content-type")) - separator) - (save-excursion - (setq separator (search-forward "\n\n"))) - (if (and content-type-header - (string-match rmail-mime-charset-pattern content-type-header)) - (substring content-type-header (match-beginning 1) (match-end 1)) + (save-excursion + (goto-char (point-min)) + (if (re-search-forward rmail-mime-charset-pattern) + (coding-system-from-name (match-string 1)) 'undecided))) ;;; Set up Rmail mode keymaps -- 2.30.2